home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / rfix0326.arc / CSUB0326.MRG < prev    next >
Encoding:
Text File  |  1987-03-26  |  17.9 KB  |  409 lines
  1. * Merge this against cnfg-sub.bas  Date 3-15-1987  Size 64896 bytes
  2. * ------------[ Created 03-23-1987 18:24:53 ]------------
  3. * REPLACING old line(s) by new
  4. 12470 DISPLAYED.PAGE.NUMBER = 8
  5.       GOSUB 30040
  6.       MAX.USR.FILE.SIZE.FRM.DEF = HIGHEST.USER.RECORD
  7.       MAX.MSG.FILE.SIZE.FRM.DEF! = HIGHEST.MESSAGE.RECORD
  8.       MAX.ALLOWED.MSGS.FRM.DEF  = MAXIMUM.NUMBER.OF.MSGS
  9.       GOSUB 24800
  10.       LOCATE  3,9
  11.       PRINT "141. Maximum number of concurrent RBBS-PC's  -------" + STR$(MAXIMUM.NUMBER.OF.NODES)
  12.       IF MAXIMUM.NUMBER.OF.NODES = 1 THEN _
  13.          MT$ = "single RBBS-PC copy " ELSE _
  14.          MT$ = "concurrent RBBS-PC's" : _
  15.          GOSUB 21900 : _
  16. * ------[ first line different ]------
  17.          IF NETWORK.TYPE < 0 OR NETWORK.TYPE > 5 THEN _              ' TF032201
  18.             GOTO 21810
  19.       LOCATE  4,9
  20.       PRINT "142. Environment running " + MT$ + " ------ " + NETWORK.TYPE$
  21.       LOCATE  5,9
  22.       PRINT "143. RBBS-PC 'recycle' method when users log off --- " + RECYCLE.TO.DOS$
  23.       FILE$ = MAIN.MESSAGE.FILE$
  24.       GOSUB 30180
  25.       MAX.MSG.FILE.SIZE.FRM.DEF! = UG
  26.       LOCATE  6,9
  27.       PRINT "144. Number of records in the " + MAIN.USER.FILE$ + " file " + STRING$(16-LEN(MAIN.USER.FILE$),"-");STR$(MAX.USR.FILE.SIZE.FRM.DEF)
  28.       LOCATE  7,9
  29.       PRINT "145. Number of records in " + MAIN.MESSAGE.FILE$ + " file " + STRING$(20-LEN(MAIN.MESSAGE.FILE$),"-");STR$(MAX.MSG.FILE.SIZE.FRM.DEF!)
  30.       LOCATE  8,9
  31.       PRINT "146. Maximum number of messages allowed ------------" + STR$(MAX.ALLOWED.MSGS.FRM.DEF)
  32.       LOCATE  9,9
  33.       PRINT "147. Conference File Maintenance.
  34.       GOTO 12580
  35. * INSERTING new line(s)
  36. 12512 PRINT "221. Time of day to exit to DOS ------------------- " + TIME.TO.DROP.TO.DOS$ ' TF032601
  37.       LOCATE 4,9
  38.       PRINT "222. Net mail to invoke is ------------------------ " + NOT.YET.IN$ ' NET.MAIL$
  39.       GOTO 12580
  40. * REPLACING old line(s) by new
  41. 21810 CLS
  42.       LOCATE 3,5
  43.       PRINT "RBBS-PC is supported in the following:"
  44.       LOCATE 5,20
  45.       PRINT "Environment"
  46.       LOCATE 7,10
  47.       PRINT "0. Single RBBS-PC in an IBM DOS environment"
  48.       LOCATE 9,10
  49.       PRINT "1. MultiLink (multi-tasking under single DOS)
  50.       LOCATE 11,10
  51.       PRINT "2. Omninet (CORVUS)"
  52.       LOCATE 13,10
  53.       PRINT "3. PC-NET (Orchid)"
  54.       LOCATE 15,10
  55.       PRINT "4. DESQview (Quarterdeck)"
  56.       LOCATE 17,10
  57. * ------[ first line different ]------
  58.       PRINT "5. 10 NET (Fox Research)"                               ' TF032201
  59.       LOCATE 19,10                                                   ' TF032201
  60.       PRINT "6. IBM DOS (3.1 or above) file sharing not supported"   ' TF032201
  61. * REPLACING old line(s) by new
  62. 21870 GOSUB 50340
  63. * ------[ first line different ]------
  64.       XX$ = "Select environment (0 to 6, ENTER to end)"              ' TF032201
  65.       GOSUB 50345
  66.       LINE INPUT;X$
  67.       IF X$ = "" THEN _
  68.          RETURN
  69.       NETWORK.TYPE = VAL(X$)
  70.       GOSUB 21890
  71.       RETURN
  72. * REPLACING old line(s) by new
  73. * ------[ first line different ]------
  74. 21890 IF NETWORK.TYPE < 0 OR NETWORK.TYPE > 6 THEN _                 ' TF032201
  75.          GOTO 21870                                                  ' TF032201
  76. * REPLACING old line(s) by new
  77. 21900 IF NETWORK.TYPE = 1 THEN _
  78.          NETWORK.TYPE$ = "MultiLink
  79.       IF NETWORK.TYPE = 2 THEN _
  80.          NETWORK.TYPE$ = "Omninet
  81.       IF NETWORK.TYPE = 3 THEN _
  82.          NETWORK.TYPE$ = "PC-NET
  83.       IF NETWORK.TYPE = 4 THEN _
  84.          NETWORK.TYPE$ = "DESQview"
  85. * ------[ first line different ]------
  86.       IF NETWORK.TYPE = 5 THEN _                                     ' TF032201
  87.          NETWORK.TYPE$ = "10 NET"                                    ' TF032201
  88.       IF NETWORK.TYPE = 6 THEN _                                     ' TF032201
  89.          NETWORK.TYPE$ = "IBM's file sharing -- future"
  90.       RETURN
  91. '
  92. ' *****************************************************************************
  93. ' * COMMON SUBROUTINE TO HANDLE THE FUNCTION KEYS, SCROLL BETWEEN CONFIG'S    *
  94. ' * PAGES OF OPTIONS, AND USER'S SELECTING A NUMERIC 4-CHARACTER OPTION.      *
  95. ' *****************************************************************************
  96. '
  97. * REPLACING old line(s) by new
  98. 60385 SUB CNFGINIT STATIC
  99. '
  100. ' *****************************************************************************
  101. ' * INITALIZE ALL VARIABLES IF A .DEF FILE DOESN'T AREADY EXIST               *
  102. ' *****************************************************************************
  103. '
  104.       D$                         = DD$ + ":"
  105.       FALSE                      = 0
  106.       TRUE                       = NOT FALSE
  107.       SYSOP.SECURITY.LEVEL       = 10
  108.       ACT.MNTHS.B4.DELETING      = 1
  109.       ACTIVE.BULLETINS           = 6
  110.       ALWAYS.STREW.TO$           = ""
  111.       ANS.MENU$                  = D$ + "MENUA"
  112.       ASK.IDENTITY               = FALSE
  113.       BG                         = 0
  114.       BORDER                     = 0
  115.       BUFFER.SIZE                = 128
  116.       BULLETIN.MENU$             = "BULLET"
  117.       BULLETIN.PREFIX$           = "BULLET"
  118.       BULLETINS.OPTIONAL         = TRUE
  119.       C$                         = ""
  120.       CALLERS.FILE$              = D$ + "CALLERS"
  121.       CODE.TYPE                  = FALSE
  122.       COM.PORT$                  = "COM1"
  123.       COMMANDS.BETWEEN.RINGS     = FALSE
  124.       COMMANDS.IN.PROMPT         = TRUE
  125.       COMMENTS.AS.MESSAGES       = FALSE
  126.       COMMENTS.FILE$             = D$ + "COMMENTS"
  127.       COMPUTER.TYPE              = 0
  128.       CONFERENCE.MENU$           = D$ + "CONFENCE"
  129.       CONFERENCE.VIEWER.SEC.LVL  = 0
  130. * ------[ first line different ]------
  131.       CONFIG.VERSION$            = "(Version 3.01)"
  132.       DEFAULT.CATEGORY.CODE$     = "UC "
  133.       DAYS.IN.SUBSCRIPTION.PERIOD = 365
  134.       DAYS.TO.WARN               = 60
  135.       DIR.CATEGORY.FILE$         = D$ + "DIR.CAT"
  136.       DEFAULT.MACHINE.TYPE$      = "IBMPC"
  137.       DEFAULT.SECURITY.LEVEL     = 5
  138.       DIRECTORY.EXTENTION$       = "DIR"
  139.       DIRECTORY.PATH$            = D$
  140.       DISK.FOR.DOS$              = D$
  141.       DISKFULL.GO.OFFLINE        = TRUE
  142.       DNLD.SUB                   = 0
  143.       DOORS.AVAILABLE            = FALSE
  144.       DOORS.SECURITY.LEVEL       = SYSOP.SECURITY.LEVEL
  145.       DOORS.TERMINAL.TYPE        = 8
  146.       DOS.VERSION                = 2
  147.       DOWNLOAD.DRIVES$           = DD$ + DD$
  148.       DOWNLOAD.TO.SUBDIR         = FALSE
  149.       DRIVE.FOR.BULLETINS$       = DD$
  150.       DRIVE.FOR.HELP.FILES$      = DD$
  151.       DTR.DROP.DELAY             = 3
  152.       DUMB.MODEM                 = FALSE
  153.       END.OFFICE.HOURS           = 2200
  154.       EXPERT.USER                = 0
  155.       EXPIRED.SECURITY           = DEFAULT.SECURITY.LEVEL
  156.       EXTENDED.LOGGING           = FALSE
  157.       FC                         = 5
  158.       FG                         = 7
  159.       FILE.COMMANDS.DEFAULTS$    = "DGLNSUV"
  160.       FILE.COMMANDS$             = FILE.COMMANDS.DEFAULTS$
  161.       FILE.NOTIFY                = FALSE
  162.       FILES.FUNCTION$(1,1)       = "D)ownload a file      "
  163.       FILES.FUNCTION$(2,1)       = "G)oodbye              "
  164.       FILES.FUNCTION$(3,1)       = "L)ist file directory  "
  165.       FILES.FUNCTION$(4,1)       = "N)ew file search      "
  166.       FILES.FUNCTION$(5,1)       = "S)earch files         "
  167.       FILES.FUNCTION$(6,1)       = "U)pload a file        "
  168.       FILES.FUNCTION$(7,1)       = "V)erbose ARC list     "
  169.       FILES.FUNCTION$(1,2)       = "D"
  170.       FILES.FUNCTION$(2,2)       = "G"
  171.       FILES.FUNCTION$(3,2)       = "L"
  172.       FILES.FUNCTION$(4,2)       = "N"
  173.       FILES.FUNCTION$(5,2)       = "S"
  174.       FILES.FUNCTION$(6,2)       = "U"
  175.       FILES.FUNCTION$(7,2)       = "V"
  176.       FILESEC.FILE$              = D$ + "FILESEC"
  177.       GB                         = FC
  178.       GLOBAL.COMMANDS.DEFAULTS$  = "H?QX"
  179.       GLOBAL.COMMANDS$           = GLOBAL.COMMANDS.DEFAULTS$
  180.       GLOBAL.FUNCTION$(1,1)      = "H)elp on-line         "
  181.       GLOBAL.FUNCTION$(2,1)      = "?)help on-line (=H)   "
  182.       GLOBAL.FUNCTION$(3,1)      = "Q)uit this part       "
  183.       GLOBAL.FUNCTION$(4,1)      = "X)Expert toggle on/off"
  184.       GLOBAL.FUNCTION$(1,2)      = "H"
  185.       GLOBAL.FUNCTION$(2,2)      = "?"
  186.       GLOBAL.FUNCTION$(3,2)      = "Q"
  187.       GLOBAL.FUNCTION$(4,2)      = "X"
  188.       GO.TO.SHELL                = TRUE
  189.       HELP$(3)                   = "HELP03"
  190.       HELP$(4)                   = "HELP04"
  191.       HELP$(7)                   = "HELP07"
  192.       HELP$(9)                   = "HELP09"
  193.       HELP.EXTENSION$            = "HLP"
  194.       HELP.FILE.PREFIX$          = "HELP0"
  195.       HELP.PATH$                 = D$
  196.       IB                         = 0
  197.       LEN.HASH                   = 31
  198.       LEN.INDIV                  = 0
  199.       LIMIT.DAILY.TIME           = FALSE
  200.       LIMIT.SEARCH.TO.FMS        = FALSE
  201.       LOCAL.PASSWORD$            = "RBBS-PC"
  202.       MAIN.COMMANDS.DEFAULTS$    = "ABCDEFIJKOPRSTUVW"
  203.       MAIN.COMMANDS$             = MAIN.COMMANDS.DEFAULTS$
  204.       MAIN.FUNCTION$(1,1)        = "A)nswer questionnaire "
  205.       MAIN.FUNCTION$(2,1)        = "B)ulletins            "
  206.       MAIN.FUNCTION$(3,1)        = "C)omments             "
  207.       MAIN.FUNCTION$(4,1)        = "D)oor subsystem       "
  208.       MAIN.FUNCTION$(5,1)        = "E)nter message        "
  209.       MAIN.FUNCTION$(6,1)        = "F)iles subsystem      "
  210.       MAIN.FUNCTION$(7,1)        = "I)nitial welcome      "
  211.       MAIN.FUNCTION$(8,1)        = "J)oin a conference    "
  212.       MAIN.FUNCTION$(9,1)        = "K)ill messages        "
  213.       MAIN.FUNCTION$(10,1)       = "O)perator page        "
  214.       MAIN.FUNCTION$(11,1)       = "P)ersonal mail        "
  215.       MAIN.FUNCTION$(12,1)       = "R)ead messages        "
  216.       MAIN.FUNCTION$(13,1)       = "S)can messages header "
  217.       MAIN.FUNCTION$(14,1)       = "T)opic msg scan       "
  218.       MAIN.FUNCTION$(15,1)       = "U)tilities subsystem  "
  219.       MAIN.FUNCTION$(16,1)       = "V)iew a conference    "
  220.       MAIN.FUNCTION$(17,1)       = "W)ho's on other nodes "
  221.       MAIN.FUNCTION$(1,2)        = "A"
  222.       MAIN.FUNCTION$(2,2)        = "B"
  223.       MAIN.FUNCTION$(3,2)        = "C"
  224.       MAIN.FUNCTION$(4,2)        = "D"
  225.       MAIN.FUNCTION$(5,2)        = "E"
  226.       MAIN.FUNCTION$(6,2)        = "F"
  227.       MAIN.FUNCTION$(7,2)        = "I"
  228.       MAIN.FUNCTION$(8,2)        = "J"
  229.       MAIN.FUNCTION$(9,2)        = "K"
  230.       MAIN.FUNCTION$(10,2)       = "O"
  231.       MAIN.FUNCTION$(11,2)       = "P"
  232.       MAIN.FUNCTION$(12,2)       = "R"
  233.       MAIN.FUNCTION$(13,2)       = "S"
  234.       MAIN.FUNCTION$(14,2)       = "T"
  235.       MAIN.FUNCTION$(15,2)       = "U"
  236.       MAIN.FUNCTION$(16,2)       = "V"
  237.       MAIN.FUNCTION$(17,2)       = "W"
  238.       MAIN.MESSAGE.BACKUP$       = D$ + "MESSAGES.BAK"
  239.       MAIN.MESSAGE.FILE$         = D$ + "MESSAGES"
  240.       MAIN.USER.FILE$            = D$ + "USERS"
  241.       MASTER.DIRECTORY.NAME$     = ""
  242.       MAX.ALLOWED.MSGS.FRM.DEF   = 5
  243.       MAX.DESC.LEN               = 40
  244.       MAX.MESSAGE.LINES          = 19
  245.       MAX.USR.FILE.SIZE.FRM.DEF  = 16
  246.       MAXD                       = SYSOP.SECURITY.LEVEL
  247.       MAXIMUM.DISPLAYABLE.PAGES  = 13                                ' TF032403
  248.       MAXIMUM.PASSWORD.CHANGES   = 3
  249.       MAXIMUM.VIOLATIONS         = 5
  250.       MAXIMUM.NUMBER.OF.NODES    = 1
  251.       MENU$(1)                   = D$ + "MENU1"
  252.       MENU$(2)                   = D$ + "MENU2"
  253.       MENU$(3)                   = D$ + "MENU3"
  254.       MENU$(4)                   = D$ + "MENU4"
  255.       MENU$(5)                   = D$ + "MENU5"
  256.       MESSAGE.REMINDER           = TRUE
  257.       MIN.SEC.TO.VIEW            = DEFAULT.SECURITY.LEVEL
  258.       MINIMUM.LOGON.SECURITY     = 0
  259.       MINIMUM.SECURITY.FOR.TEMP.PASSWORD = 5
  260.       MINUTES.PER.SESSION!       = 72
  261.       MLCOM                      = FALSE
  262.       MM                         = 5
  263.       MNP.SUPPORT                = FALSE
  264.       MO$                        = DD$
  265.       MODEM.ANSWER.COMMAND$      = "ATQ0X1V1A"
  266.       MODEM.COMMAND.DELAY.TIME   = 1
  267.       MODEM.COUNT.RINGS.COMMAND$ = "ATS1?"
  268.       MODEM.GO.OFFHOOK.COMMAND$  = "ATQ1E1H1M0"
  269.       MODEM.INIT.BAUD$           = "300"
  270.       MODEM.INIT.COMMAND$        = "ATM0Q1S2=255S10=30E0S0=0Q0X1"    ' TF032101
  271.       MODEM.INIT.WAIT.TIME       = 2
  272.       MODEM.RESET.COMMAND$       = "ATZ"
  273.       MUSIC                      = FALSE
  274.       NETWORK.TYPE               = 0
  275.       NETWORK.TYPE$              = "IBM's DOS"
  276.       NEW.FILES.CHECK            = FALSE
  277.       NEWUSER.FILE$              = D$ + "NEWUSER"
  278.       NEWUSER.SETS.DEFAULTS      = TRUE
  279.       OMIT.MAIN.DIRECTORY$       = "NO"
  280.       OMIT.UPLOAD.DIRECTORY$     = "NO"
  281.       OVERWRITE.SECURITY.LEVEL   = SYSOP.SECURITY.LEVEL
  282.       PAGE.LENGTH                = 23
  283.       PAGING.PRINTER.SUPPORT$    = ". "
  284.       PASSWORD.FILE$             = D$ + "PASSWRDS"
  285.       PCJR                       = 0
  286.       PROTOCOL.PATH$             = D$
  287.       PROMPT.BELL                = 0
  288.       PROMPT.HASH$               = "Name"
  289.       PROMPT.INDIV$              = ""
  290.       RBBS.BAT$                  = D$ + "RBBS.BAT"
  291.       RBBS.NAME$                 = "RBBS-PC"
  292.       RCTTY.BAT$                 = D$ + "RCTTY.BAT"
  293.       RECYCLE.TO.DOS             = 0
  294.       RECYCLE.TO.DOS$            = "INTERNAL"
  295.       REDIRECT.IO.METHOD         = TRUE
  296.       REMEMBER.NEW.USERS         = TRUE
  297.       REMIND.FILE.TRANSFERS      = FALSE
  298.       REMIND.PROFILE             = FALSE
  299.       REQUIRE.NON.ASCII          = TRUE
  300.       REQUIRED.QUESTIONNAIRE$    = "NONE"
  301.       REQUIRED.RINGS             = 1
  302.       RESTRICT.BAUD              = FALSE
  303.       RESTRICT.BY.DATE           = FALSE
  304.       RESTRICT.VALID.CMDS        = FALSE
  305.       SEC.LVL.EXEMPT.FRM.PURGING = SYSOP.SECURITY.LEVEL
  306.       SF                         = SYSOP.SECURITY.LEVEL
  307.       SHOOT.YOURSELF             = FALSE
  308.       SHOW.SECTION               = TRUE
  309.       SL.CATEGORIZE.UPLOADS      = SYSOP.SECURITY.LEVEL
  310.       START.HASH                 = 1
  311.       START.INDIV                = 0
  312.       START.OFFICE.HOURS         = 800
  313.       SURVIVE.NOUSER.ROOM        = FALSE
  314.       SYSOP.COMMANDS.DEFAULTS$   = "1234567"
  315.       SYSOP.COMMANDS$            = SYSOP.COMMANDS.DEFAULTS$
  316.       SYSOP.FUNCTION$(1,1)       = " 1 List comments      "
  317.       SYSOP.FUNCTION$(2,1)       = " 2 List CALLERS log   "
  318.       SYSOP.FUNCTION$(3,1)       = " 3 Recover a message  "
  319.       SYSOP.FUNCTION$(4,1)       = " 4 Erase comments     "
  320.       SYSOP.FUNCTION$(5,1)       = " 5 User maintenance   "
  321.       SYSOP.FUNCTION$(6,1)       = " 6 Toggle Page bell   "
  322.       SYSOP.FUNCTION$(7,1)       = " 7 Exit to DOS        "
  323.       SYSOP.FUNCTION$(1,2)       = " 1"
  324.       SYSOP.FUNCTION$(2,2)       = " 2"
  325.       SYSOP.FUNCTION$(3,2)       = " 3"
  326.       SYSOP.FUNCTION$(4,2)       = " 4"
  327.       SYSOP.FUNCTION$(5,2)       = " 5"
  328.       SYSOP.FUNCTION$(6,2)       = " 6"
  329.       SYSOP.FUNCTION$(7,2)       = " 7"
  330.       SYSOP.FIRST.NAME$          = "TOM"
  331.       SYSOP.LAST.NAME$           = "MACK"
  332.       SYSOP.MENU.SECURITY.LEVEL  = SYSOP.SECURITY.LEVEL
  333.       SYSOP.PASSWORD.1$          = "RBBS-PC"
  334.       SYSOP.PASSWORD.2$          = "CPC15"
  335.       TIME.TO.DROP.TO.DOS        = -1
  336.       TRASHCAN.FILE$             = D$ + "TRASHCAN"
  337.       TURN.PRINTER.OFF           = FALSE
  338.       TURBO.RBBS                 = TRUE
  339.       UE                         = 5
  340.       FMS.DIRECTORY$             = ""
  341.       UPCAT.HELP$                = "UPCAT"
  342.       UPLOAD.DIRECTORY$          = "99"
  343.       UPLOAD.PATH$               = D$
  344.       UPLOAD.SUBDIR$             = ""
  345.       UPLOAD.TIME.FACTOR!        = 0
  346.       UPLOAD.TO.SUBDIR           = FALSE
  347.       USE.COLOR                  = FALSE
  348.       USE.EXTERNAL.XMODEM        = FALSE
  349.       UTIL.COMMANDS.DEFAULTS$    = "BCFGLMPRSTU"
  350.       UTIL.COMMANDS$             = UTIL.COMMANDS.DEFAULTS$
  351.       UTILITY.FUNCTION$(1,1)     = "B)aud rate            "
  352.       UTILITY.FUNCTION$(2,1)     = "C)lock (time)         "
  353.       UTILITY.FUNCTION$(3,1)     = "F)ile x-fer protocol  "
  354.       UTILITY.FUNCTION$(4,1)     = "G)raphics             "
  355.       UTILITY.FUNCTION$(5,1)     = "L)ines per page       "
  356.       UTILITY.FUNCTION$(6,1)     = "M)sg margin setting   "
  357.       UTILITY.FUNCTION$(7,1)     = "P)assword change      "
  358.       UTILITY.FUNCTION$(8,1)     = "R)eview defaults      "
  359.       UTILITY.FUNCTION$(9,1)     = "S)tatistics           "
  360.       UTILITY.FUNCTION$(10,1)    = "T)oggle               "
  361.       UTILITY.FUNCTION$(11,1)    = "U)ser log scan        "
  362.       UTILITY.FUNCTION$(1,2)     = "B"
  363.       UTILITY.FUNCTION$(2,2)     = "C"
  364.       UTILITY.FUNCTION$(3,2)     = "F"
  365.       UTILITY.FUNCTION$(4,2)     = "G"
  366.       UTILITY.FUNCTION$(5,2)     = "L"
  367.       UTILITY.FUNCTION$(6,2)     = "M"
  368.       UTILITY.FUNCTION$(7,2)     = "P"
  369.       UTILITY.FUNCTION$(8,2)     = "R"
  370.       UTILITY.FUNCTION$(9,2)     = "S"
  371.       UTILITY.FUNCTION$(10,2)    = "T"
  372.       UTILITY.FUNCTION$(11,2)    = "U"
  373.       WAIT.BEFORE.DISCONNECT     = 180
  374.       WELCOME.FILE$              = D$ + "WELCOME"
  375.       WELCOME.INTERRUPTABLE      = TRUE
  376.       WILL.SUBDIRS.B.USED        = FALSE
  377.       FOR I = 1 TO NUM.SYSOP
  378.         SYSOP.FUNCTION(I) = SF
  379.       NEXT
  380.       FOR I = 1 TO NUM.MAIN
  381.         MAIN.FUNCTION(I) = MM
  382.       NEXT
  383.       FOR I = 1 TO NUM.FILES
  384.         FILES.FUNCTION(I) = FC
  385.       NEXT
  386.       FOR I = 1 TO NUM.UTILITY
  387.         UTILITY.FUNCTION(I) = UE
  388.       NEXT
  389.       FOR I = 1 TO NUM.GLOBAL
  390.         GLOBAL.FUNCTION(I) = GB
  391.       NEXT
  392.       END SUB
  393. '  $SUBTITLE: 'ASKRO - ask a question at a specific row'
  394. '  $PAGE
  395. '
  396. '  SUBROUTINE NAME    --  ASKRO
  397. '
  398. '  INPUT PARAMETERS   --  PARAMETER         MENANING
  399. '                         ANS$           STRING TO PUT THE ANSWER IN
  400. '                         STRNG$         STRING CONTAINING THE QUESTION
  401. '                         RO             ROW TO ASK THE QUESTION ON
  402. '
  403. '  OUTPUT PARAMETERS  --  ANS$           RESPONSE FROM THE KEYBOARD
  404. '
  405. '  SUBROUTINE PURPOSE --  TO ASK A QUESTION ON THE PC'S DISPLAY AT A
  406. '                         SPECIFIC ROW
  407. '
  408.       SUB ASKRO (STRNG$,RO,ANS$) STATIC
  409.